home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / stereo.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-05  |  2.3 KB  |  93 lines
  1. 1  SCREEN 1:COLOR 0,0
  2. 10  '       THE SINGING STEREO                             BY                                   ED ROGERS
  3. 20  ' COPYRIGHT 1983 EJR SOFTWARE
  4. 21  CLS
  5. 23  LOCATE  5,11:PRINT"THE SINGING STEREO"
  6. 25  PRINT:PRINT TAB(14)"BY ED ROGERS"
  7. 27  LOCATE 17,2:PRINT"USE <- AND -> ARROWS TO MOVE THE DIAL"
  8. 30  LOCATE 23,8:PRINT"PRESS ANY KEY TO CONTINUE"
  9. 35  KK$=INKEY$:IF KK$="" THEN 35
  10. 40  DEF SEG =&H40
  11. 50  CLS:SCREEN 1:COLOR 0,0:KEY OFF
  12. 60  LOCATE 5,4:PRINT" F 88   92  96  100   104   108 M"
  13. 70  LOCATE 6,4:PRINT" M"
  14. 80  LOCATE 9,4:PRINT" A"
  15. 90  LOCATE 9,35:PRINT" K"
  16. 100  LOCATE 6,35:PRINT" Z"
  17. 110  LOCATE 10,4:PRINT" M 56   60  64  66   70  72  74 Z"
  18. 120  LINE(15,20)-(305,150),,B
  19. 130  LINE(45,45)-(275,65),,B
  20. 140  LINE(25,30)-(295,80),,B
  21. 150  FOR X=60 TO 260 STEP 39
  22. 160  CIRCLE(X,130),15
  23. 170  PAINT(X,130),3,3
  24. 180  NEXT
  25. 190  LINE(115,80)-(205,110),,B
  26. 200  LINE(25,85)-(35,110),1,BF
  27. 210  LINE(50,85)-(60,110),1,BF
  28. 220  LINE(75,85)-(85,110),1,BF
  29. 230  LINE(100,85)-(110,110),1,BF
  30. 240  LINE(210,85)-(220,110),1,BF
  31. 250  LINE(235,85)-(245,110),1,BF
  32. 260  LINE(260,85)-(270,110),1,BF
  33. 270  LINE(285,85)-(295,110),1,BF
  34. 280  LINE(25,125)-(35,135),2,BF
  35. 290  CIRCLE(285,125),5
  36. 300  CIRCLE(285,140),5
  37. 310  LINE(135,85)-(185,90),2,BF
  38. 320  LINE(120,100)-(150,105),2,BF
  39. 330  LINE(170,100)-(200,105),2,BF
  40. 340  FOR X=45 TO 275 STEP 5
  41. 350  LINE(X,40)-(X,45)
  42. 360  LINE(X,65)-(X,70)
  43. 370  NEXT
  44. 380  LA=46:LB=LA+5
  45. 390  LINE (LA,46)-(LB,64),2,BF
  46. 400  A$=INKEY$:IF A$="" THEN 400
  47. 410  POKE &H1A,PEEK (&H1C)
  48. 420  IF A$="6" THEN 440
  49. 430  IF A$="4" THEN 470
  50. 440  LINE (LA,46)-(LB,64),0,BF
  51. 450  LA=LA+2:LB=LA+5
  52. 460  GOTO 490
  53. 470  LINE (LA,46)-(LB,64),0,BF
  54. 480  LA=LA-2:LB=LA+5
  55. 490  IF LA=44 THEN LA=LA+2:BEEP:GOTO 400
  56. 500  LINE (LA,46)-(LB,64),2,BF
  57. 510  IF LA=90 THEN 550
  58. 520  IF LA=170 THEN 700
  59. 530  IF LA=230 THEN 750
  60. 540  GOTO 400
  61. 550  A$="T255;L5;O2EEGL2BL1AL1EP2"
  62. 560  PLAY  A$
  63. 570  B$="T255;L5;O2EEL3DL2GL1EP2"
  64. 580  PLAY B$
  65. 590  C$="T255;L5;O2EEGL2BL1AO3L1EP2"
  66. 600  PLAY C$
  67. 610  D$="T255;L5;O3DDO2L3BL2GL1O3EP2"
  68. 620  PLAY D$
  69. 630  E$="T255;L5;O3GEDCO2AO3CDCL2O2AP2"
  70. 640  PLAY E$
  71. 650  F$="T255;L5;O3AF+EDO2BAGFGL3AL3BL1AL1O3E"
  72. 660  PLAY F$
  73. 670  G$="T255;L5;O3DDO2BL2GL1AP3"
  74. 680  PLAY G$
  75. 690  GOTO 400
  76. 700  B$= "T255;L6;P2O3EEEC+EL6F+P4O3C+EC+EC+EL4F+L6F+L4C+O2BP4"
  77. 710  PLAY B$
  78. 720  C$= "T255;L6;O3AAAF+EL3AL6F+EC+F+F+G+E"
  79. 730  PLAY C$
  80. 740  GOTO 400
  81. 750  A$="T255;L4;O2GABO3DCCEDDGF+GDO2B"
  82. 760  PLAY A$
  83. 770  B$="T255;L4;O2GABO3CDEDCO2BABGF+GADF+AO3CO2BABGABO3DCCEDDGF+GDO2BGAB"
  84. 780  PLAY B$
  85. 790  C$="T255;L4;O2EO3DCO2BAGDGF+GBO3DGDO2BGBD"
  86. 800  PLAY C$
  87. 810  D$= "T255;L4;O1EGBEGBF+AO2CO1D+GBD+GBD+GBCFACFABEG"
  88. 820  PLAY D$
  89. 830  E$= "T255;L4;O2ADEF+AGAO3CO2BO3CO2AF+DF+AO3CO2BABGABO3DCCEDDGF+GDO2BGABEO3DCO2BAGDGF+L1G"
  90. 840  PLAY E$
  91. 850  LA=229
  92. 860  GOTO 400
  93.